home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / investor.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-25  |  3.6 KB  |  85 lines
  1. 10  REM (C)J.CHASE 25APR86
  2. 20  KEY OFF
  3. 30  WIDTH 40
  4. 40  COLOR 0,7,0 :CLS
  5. 50  LOCATE 12,11 :PRINT "I N V E S T / O R "
  6. 60  LOCATE 20,9 : PRINT"Press Any Key To Begin"
  7. 70  LOCATE 24,2: PRINT"(C) J.Chase 1986"
  8. 80  IF INKEY$="" THEN 80
  9. 85  GOSUB 670
  10. 100  COLOR 7,0,7: WIDTH 80:CLS
  11. 110  LOCATE 1,1:COLOR 0,15,7:PRINT"********************************************************************************"
  12. 120  LOCATE 2,1:COLOR 7,0,7:PRINT" #DG17";:LOCATE 2,33:COLOR 0,15,7:PRINT"*INVEST/OR*";:LOCATE 2,76:COLOR 7,0,7:PRINT"1.00"
  13. 130  LOCATE 3,1:COLOR 0,15,7:PRINT"********************************************************************************":COLOR 7,0,7
  14. 140  LOCATE 6,4:INPUT "NAME OF STOCK";A$
  15. 150  LOCATE 7,4:INPUT "PROPOSED PURCHASE PRICE PER SHARE";B
  16. 160  LOCATE 8,4:INPUT "NUMBER OF SHARES";C
  17. 170  LOCATE 9,4:INPUT "ANNUAL DIVIDEND (in dollars and cents)";D
  18. 180  LOCATE 10,4:INPUT "52 WEEK HIGH";T
  19. 190  IF T=0 THEN T=1000
  20. 200  LOCATE 11,4:INPUT "PROJECTED HOLDING PERIOD (IN YEARS)";H
  21. 210  LOCATE 12,4:INPUT "PURCHASE COMMISSION";E
  22. 220  LOCATE 13,4:INPUT "SALES COMMISSION";F
  23. 230  LOCATE 14,4:INPUT "IF PURCHASED, AT WHAT PRICE WOULD YOU SELL";S
  24. 240  LOCATE 15,4:INPUT "CURRENT MONEY MARKET YIELD (PRESS RETURN FOR 7.00%)";I
  25. 245  IF INT(H)<>H THEN LOCATE 16,4:INPUT "TO THE NEAREST YEAR, PROJECTED HOLDING PERIOD";H
  26. 250  IF I=0 THEN I=7
  27. 260  BE1=(B*C+E+F)/C
  28. 270  COLOR 0,7,7:CLS
  29. 280  CLS: LOCATE 2,25 :COLOR 15,0,15: PRINT" EVALUATION OF "A$" "
  30. 290  LOCATE 3,14:PRINT " PROJECTED OUT-OF-POCKET INVESTMENT IS $"B*C+E" ":COLOR 0,7,7
  31. 300  LOCATE 5,4: PRINT "THE BREAKEVEN FOR"C"SHARES OF "A$;
  32. 310  PRINT USING ", AT $###.###, IS $###.###"; B,BE1
  33. 320  PRINT USING "   PER SHARE OR A +###.##% CHANGE."; (BE1-B)/B*100
  34. 330  BE2=BE1-(D*H*C)/C
  35. 340  IF D>0 AND BE2<=0 THEN LOCATE 8,4 : PRINT "THE TOTAL DIVIDENDS FOR"H"YEARS,";
  36. 350  IF D>0 AND BE2<=0 THEN PRINT USING " $####.##, WOULD EXCEED THE";D*H
  37. 360  IF D>0 AND BE2<=0 THEN LOCATE 9,4 : PRINT USING "PRICE PER SHARE, $###.##, INCLUDING COMMISSIONS.";BE1
  38. 370  IF D>0 AND BE2<=0 THEN LOCATE 10,4 : PRINT "(Compounding of dividends is NOT figured.)" :GOTO 400
  39. 380  IF D>0 THEN LOCATE 8,4 : PRINT "THE BREAKEVEN (WITH DIVIDENDS FOR" H "YEARS) IS $"BE2
  40. 390  IF D>0 THEN PRINT USING "   OR A +###.##% CHANGE.  (Compounding of dividends is NOT figured.)";(BE2-B)/B*100
  41. 400  GOSUB 570
  42. 410  COST=(B*C)+E : NET=(S*C)-F+(D*C*H)
  43. 420  LOCATE 12,1: PRINT USING"UPON SELLING AT $###.###";S;
  44. 430  PRINT" YOU WOULD RECEIVE, AFTER SALES COMMISSIONS OF $"F","
  45. 440  PRINT "$"NET;:PRINT USING "OR A +###.##% CHANGE FROM YOUR ORIGINAL INVESTMENT.";(NET-COST)/COST*100
  46. 450  IF D>0 THEN PRINT"THIS INCLUDES DIVIDENDS FOR"H"YEARS."
  47. 460  LOCATE 15,4 : PRINT "PLACING THE TOTAL PURCHASE PRICE INCLUDING PURCHASE COMMISSION IN A             MONEY MARKET ACCOUNT YIELDING"I"% WOULD RESULT IN A VALUE AFTER"H"YEARS"
  48. 470  PRINT USING "OF $###.### IN PER SHARE TERMS";CV1;
  49. 480  PRINT ", OR A TOTAL OF $"CV1*C
  50. 490  IF BE1<=T THEN GOTO 530 ELSE COLOR 15,0,15 : PRINT: PRINT"*** NOTE!  THE BREAKEVEN BEFORE DIVIDENDS IS ";
  51. 500  PRINT USING "###.##% OVER PREVIOUS HIGH OF";(BE1-T)/T*100
  52. 510  PRINT "*** ";
  53. 520  PRINT USING "$###.###. CAUTION ADVISED.";T :COLOR 0,7,7
  54. 530  LOCATE 23,1 :PRINT "PRESS Y FOR ANOTHER EVALUATION, N TO EXIT."
  55. 540  RES$ = INKEY$ : IF RES$="" THEN 540
  56. 550  IF RES$="Y" OR RES$="y" THEN GOTO 100 ELSE 560
  57. 560  IF RES$="N" OR RES$="n" THEN GOTO 630 ELSE 540
  58. 570  CV1=B+(E/C)
  59. 580  FOR X=1 TO H
  60. 590  CI=I/100+1
  61. 600  CV1=CV1*CI
  62. 610  NEXT
  63. 620  RETURN
  64. 630  WIDTH 40 : COLOR 0,7,0 :CLS
  65. 640  LOCATE 12,2 :PRINT "...and may the MARKET be with you!"
  66. 650  LOCATE 24,5 :PRINT"Press Any Key To Return To DOS"
  67. 660  IF INKEY$="" THEN 660 ELSE SYSTEM
  68. 670  COLOR 7,0,0 :WIDTH 40:CLS
  69. 680  PRINT "This program is distributed ";
  70. 690  COLOR 0,7,0:PRINT"FREE":COLOR 7,0,0:PRINT
  71. 700  PRINT"to assist the small investor. It may":PRINT
  72. 710  PRINT"be copied and given away, but it":PRINT
  73. 720  PRINT"may NOT be SOLD or ALTERED.":PRINT
  74. 730  PRINT"Contributions to aid in the further":PRINT
  75. 740  PRINT"developement of this and other programs":PRINT
  76. 750  PRINT"will will warmly received and gratefully"
  77. 755  PRINT"acknowledged by:":PRINT
  78. 760  PRINT"    J.Chase"
  79. 770  PRINT"    85-50 Forest Parkway"
  80. 780  PRINT"    Woodhaven, NY  11421":PRINT
  81. 790  PRINT"Questions will be answered by calling:"
  82. 800  PRINT"            (718) 296-5135"
  83. 810  PRINT"       PRESS ANY KEY TO CONTINUE"
  84. 820  IF INKEY$="" THEN 820 ELSE COLOR 7,0,7 :CLS :WIDTH 80:RETURN
  85.